home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 010a / mutoscan.zip / AUTOSCAN.BAS next >
BASIC Source File  |  1992-01-13  |  2KB  |  50 lines
  1. 'AUTOSCAN by Bob Reeves
  2. '16215 Mill Point
  3. 'Houston, TX  77059
  4. 'This software is dedicated the public domain
  5. DECLARE FUNCTION gooddrive% (drv$)
  6. DECLARE FUNCTION exist% (file$)
  7. file$ = LEFT$(DATE$, 2) + MID$(DATE$, 4, 2) + RIGHT$(DATE$, 4) + ".X%X"
  8. IF exist%("c:\" + file$) THEN GOTO ranit
  9. CLS
  10. PRINT "AUTOSCAN by Bob Reeves"
  11. PRINT "  Distribute freely"
  12. PRINT
  13. PRINT "Executing VIRUSCAN on all drives. Output will be written to "; UCASE$(file$) + "."
  14. IF gooddrive%("C") THEN drive$ = drive$ + "C: "
  15. IF gooddrive%("D") THEN drive$ = drive$ + "D: "
  16. IF gooddrive%("E") THEN drive$ = drive$ + "E: "
  17. IF gooddrive%("F") THEN drive$ = drive$ + "F: "
  18. IF gooddrive%("G") THEN drive$ = drive$ + "G: "
  19. IF gooddrive%("H") THEN drive$ = drive$ + "H: "
  20. IF gooddrive%("I") THEN drive$ = drive$ + "I: "
  21. IF gooddrive%("J") THEN drive$ = drive$ + "J: "
  22. IF gooddrive%("K") THEN drive$ = drive$ + "K: "
  23. IF gooddrive%("L") THEN drive$ = drive$ + "L: "
  24. IF gooddrive%("M") THEN drive$ = drive$ + "M: "
  25. IF gooddrive%("N") THEN drive$ = drive$ + "N: "
  26. IF gooddrive%("O") THEN drive$ = drive$ + "O: "
  27. IF gooddrive%("P") THEN drive$ = drive$ + "P: "
  28. IF gooddrive%("Q") THEN drive$ = drive$ + "Q: "
  29. IF gooddrive%("R") THEN drive$ = drive$ + "R: "
  30. IF gooddrive%("S") THEN drive$ = drive$ + "S: "
  31. IF gooddrive%("T") THEN drive$ = drive$ + "T: "
  32. IF gooddrive%("U") THEN drive$ = drive$ + "U: "
  33. IF gooddrive%("V") THEN drive$ = drive$ + "V: "
  34. IF gooddrive%("W") THEN drive$ = drive$ + "W: "
  35. IF gooddrive%("X") THEN drive$ = drive$ + "X: "
  36. IF gooddrive%("Y") THEN drive$ = drive$ + "Y: "
  37. IF gooddrive%("Z") THEN drive$ = drive$ + "Z: "
  38. PRINT "AUTOSCAN has found drives "; drive$
  39. PRINT : PRINT
  40. IF exist%("c:\*.X%X") THEN SHELL "del c:\*.X%X"
  41. SHELL "c:"
  42. SHELL "cd\"
  43. SHELL "scan " + drive$ + " /report c:\" + file$ + " /nobreak"
  44. PRINT : PRINT
  45. SHELL "pause"
  46. CLS
  47. ranit:
  48. END
  49.  
  50.